00010		INTEGER SY
00100		DIMENSION SY(72),DP(200)
00200	1	TYPE 2
00300	2	FORMAT(' TYPE L,H,C  '$)
00400		ACCEPT 3,AA,BB,CC
00500	3	FORMAT(3F)
00600		CALL DPYSET(1,DP,200)
00700		D=AA/2
00800		HH=BB*7
00900		RR=HH
00910		L=0
01000		DO 40 K=36,1,-1
01050		L=L+1
01100		YY=RR-HH*((K/36.)**CC)
01200		SY(L)=YY
01300	40	SY(73-L)=YY
01400		XX=-D
01500		HH=AA/72.
01600		CALL AIVECT(IFIX(XX),SY(1))
01700		DO 41 K=2,72
01800		XX=XX+HH
01900	41	CALL AVECT(IFIX(XX),SY(K))
02000		CALL DPYOUT(1)
02100		GO TO 1
02200		END